home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Apple II Magazines (PO)
/
Nibble Volume 12, No. 12 (1991-12)(MindCraft Publishing)(Side A)[a].zip
/
Nibble Volume 12, No. 12 (1991-12)(MindCraft Publishing)(Side A)[a].po
/
EIGHTY.COLUMN.bas
< prev
next >
Wrap
BASIC Source File
|
1996-12-24
|
806b
|
17 lines
10 REM PROGRAM 80 COLUMN SCREEN SAVE
20 REM SAVES CONTENTS OF AN 80 COLUMN SCREEN TO A DISK FILE
30 REM TO TWO FILES ON DISK
40 PRINT CHR$(4)"PR#3": REM TURN ON 80 COLUMN
50 PRINT "THIS IS A TEST OF THE 80 COLUMN SCREEN SAVE FUNCTION"
60 LIST
70 PRINT CHR$(4)"BSAVE SCREEN1,A$400,L$400"
80 POKE 49237,0: REM SELECT AUXILIARY MEMORY
90 PRINT CHR$(4)"BSAVE SCREEN1,A$400,L$400,B$401"
100 POKE 49236,0: REM RETURN TO MAIN MEMORY
105 FOR X = 1 TO 1000: NEXT : REM KILL TIME
110 HOME :V = PEEK(48984): POKE 48984,0: REM TURN OFF PRODOS PROTECTION
120 PRINT CHR$(4)"BLOAD SCREEN1,L$400"
130 POKE 49237,0: REM SWITCH TO AUXILIARY MEMORY
140 PRINT CHR$(4)"BLOAD SCREEN1,L$400,B$401"
150 POKE 49236,0: POKE 48984,V: REM RESTORE MAIN MEM & PROTECTION
160 VTAB 22: PRINT "ALL DONE !"